home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
CAD
/
PKEY11_1.ARJ
/
PLOT.LSP
< prev
next >
Wrap
Text File
|
1992-03-14
|
1KB
|
32 lines
;plot drawing and add data in current text size (be carefull)
;
; ********Patrick J. McKee, author********
; ****Copyright 1992, Power Key tm****
;
(defun c:plt(/ CD PL1 PL2 OL PT1 DWN TXA TX1B PLT1 DWGN1 TX TX1)
(setq oer *error* *error* err)
(pre)
(setq cd (rtos (getvar "cdate") 2 6)
pl1 (strcat "Plot date: "
(substr cd 5 2) "/"
(substr cd 7 2) "/"
(substr cd 3 2))
pl2 (strcat "Time: "
(substr cd 10 2) ":"
(substr cd 12 2) ":"
(substr cd 14 2)))
(setq ol(getvar "clayer"))
(setq pt1(getpoint "\nText point : "))
(setq dwn(getvar "dwgname"))
(setq txa(getstring "\nEnter your user name : "))
(setq tx1b(getstring "\nTo whom is this plot delivered ? "))
(Setq plt1(getstring "\nEnter plot scale :"))
(setq dwgn1(strcat "Drawing name: " DWN))
(setq tx(strcat "User name: " txa))
(setq tx1(strcat "Deliver to: " tx1b))
(command"layer""M""txt""")
(command"text" pt1 "0" tx "text""" tx1 "text""" pl1 "text""" pl2 "text""" dwgn1)
(command"layer""M" ol "")
(command"script" plt1)
(post)
(princ))